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FOREWORD 



This Ib one of three technical reports being 
published simultaneously. The others are the MILITRAN 
Operations Manual for IBM 7090-709 1 * (Technical Documentary 
Report No. ESD-TDR-64-389) and the MILITRAN Programming 
Manual (Technical Documentary Report No. ESD-TDR-64-320). 
The three reports constitute a complete description and 
instructions for using the MILITRAN language in computer 
programming of simulation problems. 

The MILITRAN 7090-709 1 * Processor, which is used 
to compile a problem written in MILITRAN source language 
into a machine language program, will be available to pro- 
spective users. Pending final arrangements, requests for 
information about the MILITRAN Processor should be sent to 
the Office of Naval Research (Code ^91 ). 

This report was prepared by the Systems Research 
Group, Inc> under Contract Nonr-2936(00), which was initi- 
ated by the Naval Analysis Group, Office of Naval Research, 
and has been Jointly supported by the Office of Naval 
Research and the Electronic Systems Division, Air Force 
Systems Command. 



ABSTRACT 

MILITRAN 13 an algorithmic computer language 
specifically oriented to the problems encountered in 
simulation programming. In addition to providing over- 
all flexibility in expressing complex procedures, the 
language contains features which greatly simplify the 
maintainence of status lists, handling of numeric and 
non -numeric data, and sequencing of events in simulated 
time. 

This report is intended as a reference summary 
for those already familiar with MILITOAN. • 
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INTRODUCTION 

This manual is designed as a reference for 
programmers working in MILITRAN. The description of the 
MILITRAN language herein is more concise than that given 
in the MILITRAN PROGRAMMING MANUAL, with which the reader 
is assumed to be familiar* 

Various sections of this manual outline GENERAL 
LANGUAGE CHARACTERISTICS, statements which define program 
STRUCTURE, characteristics of EXPRESSIONS, and statements 
whose major functions include PROCESSING, INPUT OUTPUT, 
CONTROL, and operation of the COMPILER. 

A summary of all MILITRAN forms is included in 
the appendix. 



GENERAL LANGUAGE CHARACTERISTICS 

A MILITRAN source program la a series of 

MILITRAN statements which specify a sequence of operations 

to be performed by a digital computer, A program Is either 

a main program or a procedure, A main program Initiates 

processing and may be devised In such a way as to require 

no procedures, A procedure cannot Initiate processing and 

must receive a signal from either a main program or another 

procedure before Its operation sequence oan be executed, 

# 

A MILITRAN statement Is a string of elements 

arranged In a prescribed order which specifies one or more 

of the following characteristics of the program: 

1. STRUCTURE of the program 
or Its elements; 

2. PROCESSING to be performed 
within the computer; 

3. INPUT/OUTPUT, or exchange 

of data between the computer 

and Its external storage devices; 

4. CONTROL of the sequence In 
which various operations are 
to be performed; and 



5. COMPILER Instructions, or 
specification of the manner 
in which the translation from 
MILITRAN to machine language 
is to be performed. 

The elements which combine to form MILITRAN 
statements are names, constants, punctuation marks, 
statement type identifiers, operators, and mnemonic 
delimiters. These elements are in turn made up of 
characters, which are the basifc units of any language. 

Characters 

The MILITRAN Basic Language is expressed in terms 
of the following character set: 

ABCDEPGHIJKLMN0PQRSTUVW 
XYZ 0123456789. (),-+-•/ 

The character "blank" is normally not significant 
in the language. Except where specifically noted in this 
summary, blanks may be used in any part of a statement with- 
out any effect on the statement. 

"Alphabetic characters" include the letters A through 
Z; "numeric characters" include the digits through 9; alpha- 
meric characters include both alphabetic and numeric characters, 
All others are "special characters." 



Names 

A name Is a string of one to sixty alphameric 
characters, the first of which Is alphabetic . Although 
statement type Identifiers and mnemonic delimiters are 
alphabetic strings, their use within a statement distinguishes 
them from names without ambiguity. 

Certain names have a pre-defined meaning In 
MILITRAN and may be used only In reference to that meaning. 
These names are: 



ABS 


GST 


PRINTER 


ATAN 


INDEX 


RAND0M 


ATTACKER 


INTEGER 


RAND0M INDEX 


CARDS 


LENGTH 


REAL 


C0S 


L0G 


SIGN 


EACH 


LST 


SIN 


END C0MPILATI0N 


MAX 


SQRT 


EPSIL0N 


MIN 


TAN 


EXP 


MINIMUM INDEX 


TARGET 


FALSE 


M0D 


TIME 


F0RMAT 


NEXT EVENT 


TRUE 



All names used In a MILITRAN source program are 
either explicitly or implicitly assigned a type. Some 
types of names are assigned a mode. The type of a name 



indicates the nature of its use in the program. The mode 
of a name indicates the form of data referred to by the 

name. 

The following table lists all possible types of 
names, whether or not they have modes, and short descrip- 
tions of their use in a program. 



Type Mode? 

Single Variable Yes 

Array Yes 

Vector Yes 

List Yes 

Object No 

Class No 

Contingent Event Yes 
with List 

Permanent Event No 



Permanent Event Yes 
with List 

Vector Component Yes 



Symbolic Dimension Yes 

Statement Label No 

Procedure Yes 

Open Procedure Yes 

External Procedure Yes 



Use in Program 

Storage of single items of data. 

Storage of several items of data 
tinder a single name. 

Storage of several arrays under 
a single name. 

Special form of vector which permits 
automatic updating of data items. 

Specification of basic identifiers. 

Grouping of objects. 

Association of processing functions 
with a list of the same name. 

Linking of processing functions 
in a simulated time sequence. 

Association of processing functions 
with a list of the same name. 

An array which is associated with 
a vector of list. 

Specification of array dimensions. 

Designation of points in program. 

Designation of subroutine entry. 

Designation of integral processing 
codes. 

Designation of separately coded pro- 
cessing. 



Constants 

Constants are single Items of data whose value Is 
unchanged throughout the execution of the program. In fact, 
a constant might be thought of as a nameless single variable. 



forms: 



Integer constants may take one of the following 

1. A string of numeric characters. 

2. A string of the form "nHxxxxxx" 
where n is a digit not exceeding 6 
and x Is any character Including 
the character "blank ". The number 
of characters (x) must be equal to 
n. 



Real constants may take one of the following 
forms: 

1. A string of numeric characters 
which Includes one and only one 
period. 

2. A string of numeric characters , which 
may or may not Include a period, 
followed by E, En, Enn, E+n, or E+nn, 
where n Is a numeric character # 

The distinction between real and integer constants 
is significant only In arguments to procedures. 

Logical constants Include only the names TRUE and FALSE, 



Punotuatlon Marks 

The only punctuation marks used in MILITRAN 
are the following: 

Period 
( Open Parentheses 
) Close Parentheses 
$ Comma 

... Ellipsis (Delimits comments) 

Operators 

The operators used ip MILITRAN are the following: 

m Substitution 

+ Addition; plus 

Subtraction; minus 

* Multiplication 

/ Division 

. P . Exponentiation 

.E. Comparison: Equal to 

.0. Comparison: Greater than 

.L. Comparison: Less than 

.NE. Comparison: Not equal to 

.GE. Comparison: Greater than or equal to 

.LE. Comparison: Less than or equal to 

.IS. Object identity 

•IN. Object inclusion 
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,0ft. Logical disjunction 

c N0T, Logical negation 

♦AND. Logical conjunction 

.EQV. Logical equivalence 

.EX0R. Logical exclusive disjunction 



Mnemonic Delimiters 

The delimiters BY, BY. ENTRY, C0NTAINS, P0R, 
PR0M, IN, T0, and UNTIL are used within certain state- 
ments. Use of these alphameric combinations as names 
Is permitted, as the distinction between name and delimiter 
Is always contextually clear. 

Statement Type Identifiers 

The basic statement in MILITRAN involves substitu- 
tion of one data item for another within the computer. The 
substitution statement has the form 

a - b 

where a Is a subscripted or unsubscrlpted variable name and 
b is any expression whose value Is suitable for storage in a. 

All statements which are not substitution statements 
are designated by alphabetic strings called statement type 
identifiers. The following table lists all statement types 
and their primary uses. The form and characteristics of each 
statement is summarized In later sections by primary use. 
Primary functions are listed under GENERAL LANGUAGE CHARACTER - 
ISTICS . 
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Statement Type 

BACKSPACE 

BACKSPACE PILE 

BINARY READ 

BINARY WRITE 

CLASS 

C0MM0N 

C0NTINGENT EVENT 

C0NTINUE 

D0 

END 

END C0MPILATI0N 

END C0NTINOENT EVENTS 

END PILE 

END PILE RETURN 

END REC0RD RETURN 

EXECUTE 

F0RMAT 

G0 T0 

IF 

INTEGER 

LIST 

L0GICAL 

NEXT EVENT 

NEXT EVENT EXCEPT 



Primary Function 

INPUT/OUTPUT 

INPUT/OUTPUT 

INPUT/OUTPUT 

INPUT/OUTPUT 

STRUCTURE 

STRUCTURE 

STRUCTURE 

CONTROL 

CONTROL 

CONTROL 

COMPILER 

CONTROL 

INPUT/OUTPUT 

CONTROL 

CONTROL 

CONTROL 

INPUT/OUTPUT 

CONTROL 

CONTROL 

STRUCTURE 

STRUCTURE 

STRUCTURE 

CONTROL 

CONTROL 
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Statement Type 

N0RMAL M0DE 

0BJECT 

PAUSE 

PERMANENT EVENT 

PLACE 

PLACE ENTRY 

PR0CEDURE 

PR0GRAM 0BJECT 

READ 

READWRITE 

REAL 

REM0VE 

REM0VE ENTRY 

REPLACE 

REPLACE ENTRY 

RESET LENGTH 

RETURN 

REWIND 

ST0P 

SUSPEND PAP LISTING 

UNLESS 

UNL0AD 

VECT0R 

WRITE 



Primary Function 

STRUCTURE 

STRUCTURE 

CONTROL 

STRUCTURE 

PROCESSING 

PROCESSING 

STRUCTURE 

STRUCTURE 

INPUT/OUTPUT 

INPUT/OUTPUT 

STRUCTURE 

PROCESSING 

PROCESSING 

PROCESSING 

PROCESSING 

PROCESSING 

CONTROL 

INPUT/OUTPUT 

CONTROL 

COMPILER 

CONTROL 

INPUT/OUTPUT 

STRUCTURE 

INPUT/OUTPUT 
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STRUCTURE 

Structure - defining statements are summarized in 
this section. They include: 



Object 



CLASS 

C0MM0N 

C0NTINGENT EVENT 

INTEGER 

LIST 

L0GICAL 

N0RMAL M0DE 

The statement 



0BJECT 

PERMANENT EVENT 

PROCEDURE 

PR0GRAM 0SJECT 

REAL 

VECT0R 



0BJECT n 1 (d 1 ), n 2 (d 2 ),..., n m (d m ) 

defines names n., n 2 ,..., n to represent basic object types. 
The names are preserved for use at running time in input/output 
operations. 

Dimension d. designates the number of objects to be 
named n,. This dimension may be an expression of real or integer 
mode. Names used in a dimension are defined by such use to be 
symbolic dimensions, and no other declaration of type or mode is 
permitted except subsequent use in dimensions. 



13 



Class 

The statement 

CLASS (n) C0NTAINS a., a 2 ,..,,a 

defines the name n to be that of a class. The name Is not 
preserved In Its external form. 

The members of the class are specified by elements 

a.« a ,..«,a , where a. may have the following forms: 
JL d m 1 

object name 
EACH*object name 
class name 
EACH*class name 

Object and class names used In a,, a of ,.„ f a must 

i c. m 

have been declared as such by statements appearing before the 
current CLASS statement. 

The use or absence of "EACH*" Indicates whether or 
not membership Is Individual as opposed to collective. 
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Real, Integer, Logical, Program Object 
The statements 

REAL a. , ap, • • • > a 

INTEGER a^ a, 2 , . . . , a m 

L0GICAL a^ a 2> ..., a m 

PR0GRAM 0BJECT a., a 2> .. #> a 

where element a. may have the form n. or n.Cd., d 2> ...,d. ), 

defines names n,, n g > •••> r \ l to be of REAL, INTEGER, LOGICAL, 
or PROGRAM OBJECT mode. 

The appearance of dimensions (d., d 2 >..«>djj In the 
element a^ further defines name n^ to be an array having k 
dimensions. 

Dimensions (d., dp>».»>d k ) may each assume the 
following forms: 

1. An expression of real or 
Integer mode; 

2. An object name; or 

3. A class name. 

Any name which appears In a dimension Is defined by 
such appearance to be a symbolic dimension unless It Is defined 
elsewhere as an object or class. No other definition of symbolic 
dimensions is permitted except subsequent use in another dimension. 
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Normal Mode 

In the absence of explicit mode declarations, names 
are assigned modes according to their initial letters as re- 
quired. The correspondence of modes to initial letters is 
known as the "normal mode". 

The statement 

N0HMAL M0DE m^a^ ag,...^), mg^, b 2 ,...,bj, 

is used to specify the normal mode. Mode designators m may 
be the words REAL, INTEGER, L0OICAL, or PR0ORAM 0feJECT . 
Alphabetic characters a., a 2 *...,b., bp,...,c. indicate the 
initial letters which are to correspond to the various mode 
designators. Designator m applies to all letters not ex- 
plicitly mentioned in the statement, and is assumed REAL if 
absent. 

The normal mode so defined will prevail until 
another N0RMAL M0!DE statement is encountered. The initial 
normal mode for all programs is REAL. 
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Vector, List 

The statements 

VECT0R n((c 1 ,c 2 , ...,cj, d^dg, • . . ,d k ) , etc. 
LIST n((c 1 ,c 2 ,.,,,Cj),d 1 ), etc, 

define groups of arrays o.jCo* •••*<!, which have identical 
dimensions d.,d 2 ,,. # ,d. and are grouped together under the 
name n. The name n is declared to be a vector or list, and 
names c.,c 2 , • • ,,c , are declared to be vector components. 
The number of such name/component/dimension groups which 
can be declared in one statement is limited only by the max- 
imum statement length. 

Unless the mode of name n is declared explicitly 
in a REAL, INTEGER, L0GICAL, or PR0GRAM 0BJECT statement, the 
normal mode prevailing at the appearance of the VECT0R or LIST 
statement will be assigned. Components whose modes are not 
explicitly defined will be assigned the mode of the name n. 

Dimensions d-,dp,.,,,d. may assume the same form as 
array dimensions previously described. 

Only two differences obtain between vectors and lists 

1, Lists may have only one dimension; 
vectors may have any number. 

2, Lists may be operated on by special 
processing statements; vectors may not. 
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Contingent Event, Permanent Event 
The statements 

C0NTINGENT EVENT n((c.,c 2 ,...,c 1 ),d l ) 
PERMANENT EVENT n((c x ,c 2 , . . . ,cj ,d 1 ) 
PERMANENT EVENT n 

declare the name n to be a contingent event with list, permanent 
event with list, or permanent event. Forms with a list create 
storage assignments exactly as would a LIST statement. 

The event statement Is always followed by a series of 
one or more statements, the last of which must be an END state- 
ment. (See CONTROL.) This series of statements embodies the 
processing associated with the event named n. 

Standard event processing algorithms require the 
components c.,c 2 , and c~ of a C0NTINGENT EVENT list to have modes 
of REAL, PR0GRAM OBJECT, and PR0GRAM 0BJECT respectively. Any 
other construction may be used where standard processing Is not. 
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Common 

The statement 

C0MM0i* n 1 ,n 2># . # ,n k 

causes storage required by data items named n.,n 2 ,^.,n. to 
be placed in a special area of the computer so that it can 
be directly accessed by procedures. Additions to this com- 
mon store are cumulative, items from one common statement 
being added to those from any previous common statement. 

Access to common data by more than one program 
requires that each program have identical common structure, 
I.e. : 

1 # Each item in common must be 

identically defined in both pro- 
grams ; 

2. Common statements in both programs 
must specify these items in identi- 
cal order. 

Identical definition and order suggest the following 
rules for common structure: 

1 # If an item in common has symbolic 
dimensions, the dimension names 
should also be in common; 
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2. If an item in common has dimensions 
which are object or class names, those 
names should also be in common; 

3. If a PERMANENT EVENT with list is 

in common, the corresponding item in 
all programs except that containing 
the event processing should be declared 
as a LIST. 

k. If a C0NTINGENT EVENT with list is in 
common, the corresponding item in all 
programs except that containing the 
event processing should be declared as 
a LIST and preceded in common by a 
single variable which is otherwise 
unused. This extra variable does not 
appear in the common statements of the 
program containing the event processing. 

Only certain types of names may appear in a common 
statement, and these types are: 

Single variable 

Array 

Vector 

List 
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Object 

Class 

Contingent event with list 

Permanent event with list 

Symbolic dimension 

The names TIME, ATTACKER, TARGET, or INDEX may not 
appear in a common statement. Appearance of the name NEXT 
EVENT in a common statement will place all of the above names 
in common* 

Procedure 

The statement 

PR0CEDURE n(a 1# a 2 , ...,a m ) 

designates the entire program in which it appears to be a 
procedure whose name corresponds to the first six (or less) 
characters of « the name n. Neither the name n nor another 
PR0CEDURE statement may appear elsewhere in the same program. 

The names a i* a o> •••>*« and their enclosing parentheses 
are optional, and designate the dummy arguments to the procedure 
if present. The following types of names may be used as dummy 
arguments : 

Single variable 

Array 

Vector 

List 

Object 
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Class 

Contingent Event with list 
Permanent Event with list 
Symbolic dimension 
Statement label. 



22 



EXPRESSIONS 

As many MILITRAN statements depend upon the use 
of expressions, a brief summary of expression forms and 
types is presented in this section, A short discussion of 
retrieval forms is also included. 

Expression Syntax 

The overall syntax of expressions is presented 
here in the familiar Backus type notation. 

Brackets ( /used below enclose terms designating 
elements; the sign : :» may be read as "takes the form"; ver- 
tical lines may be read as "or"; and all. other characters 
represent themselves. 



^xpressiory 



(arithmetic expression/ (logical expression/ 
(program object expression/ 



(arithmetic expression/ ::> 

(arithmetic operator/ :: s 
Arithmetic comparator/ ::» 



real 
expression 



integer 
expression 



+ - * / .p. 



.E. .G. .L. .NE. ,0E. .LE 



(logical operator/ ::- .0ft. .AND. I .EQV. .EX0ft. 



(real expression/ : :« (real data item) + <\real expression) 

-(real expression^) ( (real expression) ) 



'real \ /arithmetic 

(expression/ \operator 



/in 
\ex 



teger \ /arithmetic 



xpression/ \operator 



real 
expression 



arithmetic 
.operator 
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real 
expression 



/real V 
\ expression/ 

'integer \ 
\ expression/ 



(integer expression/ 



integer data 
item 



integer 
expression/ 



/integer 
\ expression 

/ /integer 
v \expression 

thmet 
operator 



/integer \ /arithmetic \ /integer 
\expression/ \ 



express 



ion/ 

(logical expression/ : :- (logical data item) *N0T # (logical \ 

1 \expression/ [ 

/logical \ /logical \ /logical \| 
\expression/ \operator/ \expression/ | 

/arithmetic\ /arithmetic \ /arithmetical 
\expression/ \comparator/ \expression/| 



/program objectX IN /object or \ 
\expression / * # \class name/ | 

/program objectX IS /program objectX 
\expression / • # \expression / 

( \logical expression/ ) 

/program object expression/ : :» /program object data item) 

/object or \ / /arithmeticX \ I 
\class name/ * \ expression/ ' 

( ( program object expression/ ) 
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/data ltem\ : :- /single variable name/ 

symbolic dimension name/ 
/subscripted array name/ 
^subscripted vector name/ 
/function^ ^constant/ 

subscripted array name) ::= /array-type\ / /subscript^ \ 
x / \name / v \list / ; 

< subscripted \ ::- /vector-type\ / /subscrlpt\ /arlthmetlc\ \ 
vector name/ \name / * \llst / '\expresslon/ ' 

/array- type riame\ : :- /array name\ /vector component namcN 

/vector-type name) ::=* Rector nameN /list name\ 

/contlngent-event-with-llst name\ 
/permanent-event-wlth-llst name/ 

(subscript list) ::- (subscript) /^bscrlpt\ ^ / 8ubscrlpt ) 



(subscript/ : :- /arithmetic \ 
' \expresslon/ 



/program object 
\expresslon 4 



^function/ ::- (external procedure nam€/ ( /argument list/ ) 

/open procedure name/ ( /argument list/ ) 

(external procedure name/ /open procedure nam^ 
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/argument llst\ t :■» /argument^ /argument llst> , /arguments 



/argument > : :» 



/expresalonN /vector-type name\ 

/array -type naraeS 



/statement label name\ 



/object or class name\ 



Functions 

A function Is a procedure whose execution Is Implied 
by Its use In an expression. Execution of the function always 
returns a single value which replaces the function In the 
expression. 

Arguments to a function must correspond In type and 
order to those expected by the procedure, 

A name whose type Is not otherwise declared Is 
Implicitly declared to t*) an external procedure (function) when 
It appears with an argument list In an expression. 
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Standard Functions 

Several functions are pre-defined in MILITRAN, 
and reference to their names automatically produces either 
open coding or calling sequences to library subroutines. 
These functions are described below. Values are returned 
in the same mode as the arguments except where noted. 
Arguments must be REAL except where noted. 

ABS (v) returns |v| . The 
argument v may be either 
REAL or INTEGER. 

ATAN (v^Vp) returns the angle 
OL whose tangent is v^/Vp. 
(0 < a < 2TT ).. 

COS (v) returns cos v. 

EPSILON (v) returns (v+ £ ) 
where £ is the smallest increment 
physically recognizable in v. Argument 
v may be either REAL or INTEGER. 
( £ s l when v is integer.) 

EXP (vj returns e where e is 
the Naperian base. 
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INTEGER (v) returns the 

largest integer i such 

tha t | i | < | v | . Argumen t v 

may be either REAL or INTEGER. 

Result 1 Is returned In INTEGER 

mode. 

LOG (v) returns the natural 
logarithm of v. 

MAX (v^Vg* . . . >v.) returns 
the maximum value among 
the arguments (v-,, . . . ,v,) . 
Arguments may be REAL 
or INTEGER. 

MIN (v^Vg, . . .,v.) returns 
the minimum value among 
the arguments (v,,...,vj. 
Arguments may be REAL or 
INTEGER . 

RANDOM returns a REAL 
pseud o -random value, v, 
(0 < v < 1). 
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REAL (v) returns the value 
of v In REAL mode. The 
argument v may be either 
REAL or INTEGER. ( | v | < 2 27 . ) 

SIGN (v^^v^) returns the value 

v ih ^r 1 «*2*°'K 
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if v 2 = 0. 



SIN (v) returns sin v. 

SORT (v) returns y|v| 

TAN (v) returns tan v # 
(Values exceeding the maximum 
possible REAL value are 
truncated to that maximum. ) 
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Subscripts 

Retrieval of specific data items from arrays and 
vectors is accomplished by means of subscripts. Types of 
names requiring subscripts fall into two groups as follows: 

Array-type Vector- type 

Array Vector 

Vector component List 

Contingent event with list 
Permanent event with list 

Array-type names require exactly as many subscripts 
as they have dimensions. Consider the statement 



REAL 



n(d 1 , . . .jd^, . . •>d m ) 



which defines the name n to be an m-dimensional array. Re- 
trieval of a single member of n would be accomplished by the 
expression 

nv©T*»«»* e » $ ... 9 e ) 

occurring elsewhere in the program. The expressions e i>»««* e m 
are subject to the following rules: 

1. Any expression e. may be 
an arithmetic expression. 

2. Expression e. may be a pro- 
gram object expression if 
and only if dimension 6* 

is an object or class name. 
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Vector-type names require one more subscript 
than they have dimensions. Consider the statement 

VECT0R n((c l ,...,Cy...,o^), 6y . . .,6^, . . *><* m ) 

which defines the name to be an m-dimensional vector having 
k components. Retrieval of a single member of n would be 
accomplished by either of the expressions 

C 11***** ^i * * * * # ^m 

occurring elsewhere in the program. The expressions 
e.,...,e are subject to the same rules as are subscripts 
for array-type names. The expression © m+1 must be arithmetic 
and equal to J. 
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PROCESSING 

Processing statements are summarized In this 
section. They include: 

PLACE REPLACE 

PLACE ENTRY REPLACE ENTRY 

REM0VE RESET LENGTH 

REM0VE ENTRY Substitution 

Substitution 

All substitution statements take the form 
a « b 
vrhere a is a subscripted or unsubscripted name and b is an 
expressions. The name w a" may not be an object, class, 
permanent event without list, statement label, procedure, 
external procedure, or open procedure. 

The following processing may be accomplished 
through a substitution statement: 

1. If a and b are of the same mode, the value 
of expression b replaces the value of a. 

2. If a and b are both subscripted vector-type 
names, the contents of b replace the contents 
of a without regard to mode. ("Contents 11 

as used above refers only to a single value, 
not the entire array . ) 

3. If a is real and b is integer, the value of 
expression b is converted to a real number 
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and replaces the value of a. 

4 # If i is integer and b is real, the value of 
expression b Is truncated to an Integer and 
replaces the value of b. 

Conditions 3 and 4 above apply only when condition 2 does 
not. 

List Processing 

Vector-type names defined In LIST, C0NTINOENT 
EVENT, and PERMANENT EVENT statements represent groups of values 
which may be processed by means of special "list processing 
statements. " 

In the discussion of list processing statements 
which follows, all descriptions will refer to the generalized 
lists defined by 

LIST m( (m, , • • • ,m. , •••>mj),d),n((n*,.. # ,nj,. ## ,n^)d) 

The symbols designating the lists and components defined 
above will be maintained throughout the discussion. 

List Entries 

The list m may contain d entries. The e— - entry 
In list ra Is the set of values. 

m 1 (e),m 2 (e), t ..,raj(e) 

The current number of entries In list m Is represented by 
the function 

LENGTH (m) 
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which ia initially equal to zero for all lists. 

Any value in the group represented by the name 
in may be altered by means of a substitution statement. 
However, substitution statements do not maintain the 
LENGTH function and list processing statements consider the 
e^ entry valid only if 1 < e < LENGTH(m) . 

List Processing Conditions 

Several statements and functions involved in list 
processing depend upon logical conditions of the form 

where k is the number of components in the list. 

t*fo 
The e— - entry of list n is said to meet the 

condition (b,,...,b. ,b ) if an only if 

1. b^EQV.TRUE for 1< i < k; and 

2. b .EQV.TRUE 

The logical expression b. may involve the current value of 
n 4 (e), which value is represented in b* by an asterisk. 
The logical expression b may involve e, which value is 
represented in b by an asterisk. Since more than one 
entry in list n may meet the condition (b. , . . . ,b. ,b ), the 
entry number "e" is never used explicitly. 

The following abbreviations are permitted in the 

construction of list processing conditions: 

1. Omitted expressions are assumed to be TRUE; 
e.g . , the conditions (TRUE, TRUE) and (,) are 
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equivalent. 

2. Commas separating identically true 
expressions at the end of the condition 
may be omitted; e.g », the conditions 
(bwbg' TRUE'TR^E) and (b^bg) are 

equivalent. 

3. The expression "*.E # a," where a is an 
arithmetic expression, may be represented 
by "a." 

4. The expression "♦.IS.a", where a is a 
program object expression, may be re- 
presented by "a." 

5» The expression VlN.a/ 1 where a is an 

object or class name, may be represented by 
"a." 

A condition may be restricted by the use of the 
functions GST and LST. One and only one expression in a 
condition may be subjected to a GST/LST restriction. Every 
condition containing GST or LST is met by no more than one 
entry in list n. 

1# (b^^GST^ ), •••* b k * b x ) refers to that 
entry whose n. is the greatest n. among all 
entries meeting condition (b. , . . .,b., . ♦♦,b.,b ) 
2. (b^^^LST^), •••* b k * b x ) refers to that 
entry whose n* is the least n. among all 
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entries meeting condition 

(b*, • • • $ Dj ) • • • *b^*b / * 

3 # (b 1# . tt ,b k ,OST(b x )) refers to the 
highest numbered entry meeting 
condition (b^ t . •* b j c > b x ) • 

**• (bj^^tf^b. ,LST(b )) refers to the 

lowest numbered entry meeting 
condition (b. , . # t ,b. ,b ) . 

Where expression b. Is subjected to a GST/LST 
condition, component n* must be of real or Integer mode. 
Where duplicate minima or maxima occur, the lowest numbered 
entry Is chosen. 

Place, Place Entry 

Execution of the statement 

PLACEfc^ . ..,c^, . f .»c ) IN n 

causes the current value of LENOTH(n) to be Increased by one 
and the values c-,...,c, to replace current values of 
n^LENOTHCn)),. . .^(LENGTHCn)) . The number of expressions 
(p) may not exceed the number of components (k) In list n. 
Expression c+ must be of the same mode as component n+ for 
1< 1< p. 
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Execution of the statement 
PLACE ENTRY m(e) IN n 
is identioal in a processing sense to execution of 
PLACER (e),.,.,mp(e)) IN n 

where p is equal to the smallest number of components 
contained in either list (m or n) • 

Remove j Remove Entry 

Execution of the statement 

REM0VE (b 1 ,...,b k ,b x ) FR0M n 

will cause all entries meeting condition (b-, ### ,b k ,b ) 
to be removed from list n. 

Execution of the statement 

REM0VE ENTRY n(e) 

will cause the e — entry in list n to be removed. 

For every entry removed from list n, the value 
of the function LENGTH(n) is reduced by 1. Rearrangement 
of the list to eliminate blank entries is performed where 
necessary. 
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Replace , Replace Entry 

Execution of the statement 

REPLACE ENTRY n(e) BY (c 1$ ...,c ) 

causes the values of n^e), . ..,ri (e) to be replaced by 
the values of expressions c 1# ... # c . The number of ex- 

™ Mr 

pressions. (p) raay not exceed the number of components (k) 
in list n. Modes of expression c, and component n, must 

match for 1< i < p. The value of n.(e) before replacement 

may be represented in expression c, by an asterisk. 

Execution of the statement 

REPLACE ENTRY n(e x ) BY ENTRY m(e 2 ) 

causes values m 1 (e 2 ), .. .,ni (e-) to replace the current 
values n,, (e,, ),..., n(e,), where p is the smallest number 
of components contained in either list (m or n). 

The two statements 

REPLACE ENTRY n(e x ) BY ENTRY (e 2 ) 
REPLACE ENTRY n(e ]L ) BY ENTRY n(e 2 ) 

are identical in a processing sense. 
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Execution of the statements 

REPLACE^, ### ,b k ,b x ) BY (c 1# ...,c ) IN n 
REPLACE^,. ..#* k ,b x ) BY ENTRY m(e) IN n 
REPLACE^,.. # ,b k ,b x ) BY ENTRY (e) IN n 

cause replacement of every entry in list n which meets 
condition (b^, ••♦,b k ,b )♦ Replacement is accomplished 

in exactly the same manner as by corresponding REPLACE 
ENTRY statements ♦ 

Reset Length 

Execution of the statement 

RESET LENGTH (n) T0 e 

will arbitrarily reset the value of function LENGTH (n) 
to the positive integer value of arithmetic expression e # 

Use of this statement is required only when non- 
list-processing statements have been used to enter values in 
list n or when the programmer wishes to ignore entries beyond 
the e^ entry • 
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List Entry Locating Functions 

Two MILITRAN functions operate directly upon 
list processing conditions. These functions are used 
within the context of an expression as are the functions 
discussed under EXPRESSIONS. 

The functions 

MINIMUM INDEX (n(b r . . . ,\,b x ) >s) 
RANDOM INDEX (n(b x , . . . >\,b x ) ,s) 

return an Integer value designating an entry In the list 
n which meets the condition (b., . . .,b.,b ) . If no such 
entry exists, control transfers Immediately to the state- 
ment labelled s. 

The distinction between MINIMUM INDEX and RANDOM 
INDEX obtains only when more than one entry In list n 
satisfies condition (b-, . . . ,b.,b ) . MINIMUM INDEX chooses 
the lowest numbered entry meeting the condition; RANDOM 
INDEX chooses one entry at random from all those meeting 
the condition. 

MINIMUM INDEX may be shortened to INDEX without 
loss of meaning. 
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INPUT/OUTPUT 

Input/output statements are summarized In this 
section. They Include: 



BACKSPACE 


READ 


BACKSPACE PILE 


READWRITE 


BINARY READ 


REWIND 


BINARY WRITE 


UNLOAD 


END PILE 


WRITE 


FORMAT 




Logical Unit Designations 





Input /output units are designated in MILITRAN 
source programs as follows: 

Tape Units by positive integers; 

Line printer by the name PRINTER; 

Card reader and punch by the name CARDS. 

Tape Control Statements 

Statements whose execution causes tape units to 
perform operations not involving transfer of data are tabu- 
lated below. In all cases, the designation t is an arithme- 
tic expression. 
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Statement 
BACKSPACE (t) 

BACKSPACE (t) 

END PILE (t) 

REWIND (t) 
UNLOAD (t) 



Effect 

Designated tape unit 
backspaces one record.* 

Designated tape unit 
backspaces until an end-of-file 
mark is passed.* 

An end-of-file mark is 
written on the designated 
tape. 

Designated tape unit rewinds.* 

Designated tape unit rewinds 
and becomes inoperative. 



Statements marked with an asterisk have no effect 
if designated tape unit is fully rewound. 
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Input/Output Lists 

Input/output statements which involve transfer of 
data between the computer and external devices require a list 
of those items which are to be transferred ♦ All such lists 
are identically constructed. The summary below utilizes the 
notation previously used to describe expressions ♦ 

(l/O list) ::- ^expression) I ( ^1/0 list) ) I 

(l/O list) , ^1/0 list) I 
(( /l/O list) ) /implied DO loop) ) I 
/l/O list) , /void) 

/implied\ ##- -^ /program object \ ^ /object or \ 
\DO loop/ •* v \single variable name/ • • \class name/ 

/terminating condition) 

/terminating condition) , /index) 

<5SSS^*)/ < lndM > - <«P"«1°"> - (expression) 

/terminating conditiory ;:« UNTIL /logical expressiory 

A A \ . . /any expression permitted on the left\ 
V nae V ••■ \ side of a substitution statement / 
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Binary Read , Binary Write 

The statements 

BINARY READ (t) data 
BINARY WRITE (t) data 

where the "data" Is any Input/output list, cause reading 
or writing In binary form on magnetic tape. The expression 
t must designate a tape unit. 

Binary reading and writing are performed without 
conversion, I.e. , Items are handled In their exact Internal 
form. Each BINARY WRITE statement writes a logical block 
of data on tape whose length Is dependent upon the number 
of Items In the input/output llst # A BINARY READ statement 
may read only one logical block. If fewer Items are read 
than are contained In the block, the remaining Items In the 
block are skipped. 
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Read, Write 

The statements 

READ (t,s) data 
WRITE (t,s) data 
cause reading or writing of information on the input/output 
unit designated by the expression t according to a format 
specified in a FORMAT statement which has the label s. Data 
must be specified by an input/output list. 

The statement 

READWRITE(t 1 ,s 1 ,t 2 ,s 2 ) data 

is identical in a processing sense to the statements 

READ (t 1 ,s 1 ) data 
WRITE (t 2 ,s 2 ) data 
executed in the order shown. 
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Format 

Formats for data transferred by READ, WRITE, AND 
READWRITE statements are specified by statements of the form 

s F0RNIAT (Specif ica tion ) 

Hie label s is required, since it is the only link between 
the READ or WRITE and its associated FgfRMAT. 

Ihe specification portion of a FORMAT statement 
consists of a series of fields and punctuation marks which 
indicate the form and placement of data in external records. 

Fields are of two types: data and non-data. 
Data fields specify transmission of data to or from items 
in the input/output list. Non-data items involve transfer 
only between the FORMAT statement and external records. Data 
fields must be separated from succeeding fields by commas, 
while non-data fields need not be. 

Field groups may be repeated through the use of 
parentheses. The notation "n (sub-specification)" will cause 
the group in parentheses to be repeated n times. If n is 
absent, the group is repeated indefinitely. The sub-specifica- 
tion may not contain parentheses. 

The end of any parentheses without a specific number 
of repetitions (n) normally signifies the end of a record. 
The specification for the next record starts from the corres- 
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ponding open parentheses* Additional changes of record may 
be specified by a slash (/). Two consecutive slashes indicate 
a blank record. 

During execution of a READ, WRITE, or READWRITE 
statement, input/output lists and FORMAT specifications 
are simultaneously scanned from left to right. Each data 
item in the input/output list corresponds to a data field 
in the FORMAT specification, correspondence being established 
solely by order of occurrence. Transmission ends when the 
input/output list is satisfied. 

Voids in the input/output list cause the corres- 
ponding data fields to be skipped (input) or filled with 
blanks (output). An input/output list which consists solely 
of an implied M DO-loop" will cause tape motion only if at 
least one item of data is transferred. If an input/output 
list results in reading of a partial record, the remainder 
of the record is skipped. 

Non-data fields are designated by the letters 
X or H. The specification wx causes w characters to be 
ignored on input or assumed blank on output. The specifica- 
tion wH must be followed immediately by w characters which 
will be copied literally from FORMAT statement to record 
(output) or vice-versa (input). 
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Data fields are designated by specifications 
of the form ncw.d where n is the number of fields , c is 
an identifier designating field type, w is the field width, 
and d is a supplementary width. The supplementary width is 
not required for some fields. The number of fields is 
assumed to be 1 if absent, Basic field types are summarized 
below. Source and target addresses referred to in the table 
are items in the input/output list and are discussed in de- 
tail immediately following the table. The number of charac- 
ters in the external record covered by any field is always 
equal to the field width. 
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Field 

Specification Interpretation 

Aw External field contains alphameric data; 

internal representation will be BCD code. 
Input: The rightmost six characters from 
the field replace data at the target address. 
If w is less than six, w characters are left 
Justified and filled to six characters with 
blanks. 

Output: Six characters from the source 
address are right Justified in the field. 
Remaining characters are blank. If w is 
less than six, the leftmost w characters 
from the source address are used. 

Iw External field contains decimal integer; 

internal representation is integer data. 
Input: All blanks are considered zero* 
Output: Leading zeroes are replaced by 
blanks. 

0W External field contains octal integer; 

internal representation is integer data. 
Input: All blanks are considered zero. 
Output: Leading zeroes are replaced by 
blanks. 

Lw External field contains word beginning 

with T or P; internal form is logical. 
Input: T or F in field results in trans- 
fer of TRUE or FALSE to target address. 
Output: TRUE or FALSE at source address 
causes T or F to be right Justified in 
field. Remainder of field is filled with 
blanks. 
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Field 

Specification Effect 

Jw.d External form is the name of an object 
and its ordinality; internal form is 
a program object value. 
Input: Field is scanned from left to 
right until w-d characters are read or 
a left parenthesis appears. Scanned 
characters (blanks ignored) are com- 
pared with names of all 0BJECT types in 
program. Digits following a left parenthe- 
sis, or the rightmost d characters, are 
assumed to be the ordinality. Program 
object value constructed and transmitted 
to target address. 

Output: Ordinality of source address value 
is converted to decimal integer, enclosed 
in parentheses, and placed in rightmost d+2 
characters of field. Object name is right 
adjusted in leftmost w-d-2 characters. Re- 
mainder of field is blank. 

JW Input: Ordinality is assumed unity if no 

left parenthesis appears. 
Output: Only object name appears in field. 

Fw.d External form is decimal number; internal 

form is real. 

Input: Decimal point is assumed d characters 
from the right unless present. th 
Output: Decimal point is inserted as d — 
character from the right. 

Ew.d External form is decimal number and exponent. 

Internal form is real. 

Input: Number is assumed to have the form 
xxxx+xx where sign separates base value and 
exponent. Base value times ten to exponent 
value is transmitted in real mode to target 
address. Exponent is assumed unity if absent, 
Decimal point in base value is assumed such 
that d digits are fractional unless decimal 
point appears explicitly. Exponent may have 
one or two digits. 

Output: Field has the form .xxxxEfxx, where 
decimal point falls to the left of the dth 
character in the base value. 
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Data fields of type E,F,I, and may be signed. 
Missing sign Is assumed plus on Input; plus sign Is not 
written on output . 

Source and target addresses are determined by 
Items In the input/output list, A source address Is a value 
to be written; a target address is a position into which a 
value Is to be read. 

All source addresses yield either the value of 
an expression or a void. Fields corresponding to voids in 
the input/output list will be blank. 

A target address Is implicitly void if the expression 
corresponding to it contains any operator, external procedure, 
or open procedure outside of its subscripts. Fields corres- 
ponding to voids are Ignored. 
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CONTROL 

Statements whose major function Is the oontrol 
of program operating sequenoe are summarized In this section, 
They Includes 



CONTINUE 

END 

ENI) CONTINGENT EVENTS 

EN1) FILE RETURN 

ENI) RECORD RETURN 

EXECUTE 

G0 T0 



IP 

NEXT EVENT 

NEXT EVENT EXCEPT 

PAUSE 

RETURN 

ST0P 

UNLESS 



Go To 



Execution of the statement 



G0 T0 s 



causes the program to continue from the statement whose 
label Is s. In the discussions which follow, this opera- 
tion will be described as: "Control Is transferred to s/ 



If, Unless 



Execution of either of the statements 
IF(b),x,y 
UNLESS (b),y,x 



52 



will transfer control to x if logical expression b has 
the value TRUE, to y if b Is FALSE, The second comma 
and label may be omitted, In which case the statement 
immediately following the IP or UNLESS is assumed. 
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Pause, Stop 

Execution of the statement 

PAUSE n 

causes the computer to stop with the octal number n 
displayed. Execution may be restarted by manual means. 
Number n may not exceed 30000 octal. 

Execution of the statement 

ST0P 

causes execution of the program to be terminated. Restart 
cannot be effected. 

Execute, Retur n 

The PROCEDURE statement, described under STRUCTURE , 
is used to define MILITRAN programs whose operation is to be 
controlled by other programs. The control statements EXECUTE 
and RETURN implement control of such programs. 

Execution of the statement 

EXECUTE n(a 1 ,a 2 ,...,a m ) 

will cause control to be transferred to the PROCEDURE whose 
name corresponds to the first six characters of the name n. 
Arguments a^jSU* . ..,a must correspond in mode, type, and 

order to the dummy arguments of the procedure. The name n is 
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declared by Its appearance In an EXECUTE statement to be 
an external procedure name. 

In a program which is a procedure, execution of 
the statement 

RETURN 

Kill return control to the program in which the EXECUTE 
statement appears. 

Procedures which are used as functions (see under 
EXPRESSIONS ) must return a value to the executing program. 
The statement 

RETURN e 

where e is an expression accomplishes transfer of both con- 
trol and the value of e # 
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Do, Continue 

Execution of the statement 

D0 (s) UNTIL b, i « e i> e 2 

causes iterative execution of statements following the D0 up 
to and including the statement labelled s # Before the first 
iteration, index i will be set to the value of expression e,j 

before subsequent iterations, index i will be incremented by 
the value of expression e 2# Index i may be any unsubscripted 

or subscripted name of type single variable, array, vector, 
list, or event with list # 

If at the beginning of any iteration the value of 
logical expression b is TRUE, control transfers immediately 
to the statemont following s # 

Execution of the statement 

D0 (s) FffR a.IN.b 

causes iterative execution of statements following the D# 
up to and including the statement labelled s # The single 
variable a mucit be of program object mode and will successively 
assume the identity of all members of the object or class b. 

When all members of b have been represented by a, 
control transfers immediately to the statement following s # 
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In both forms of the D$ statement above it Is 
necessary that the statement labelled s permit control to 
pass through it to the next statement. Thus the statements 
Qtf T0, NEXT EVENT, and IP or UNLESS with two labels are 
prohibited as terminal statements of a D0 loop. 

Restrictions on statements terminating D# loops 
do not limit the variety of processing arrangements possible, 
since the statement 

CONTINUE 

can be used at any point in a program. This statement per- 
forms no operations and requires no space in the computer. 
Its label, however, may be used to terminate a DfS loop. 

Other D0 statements may appear between one D0 and 
its terminating statement, but the "inner" loop must terminate 
at or before the end of the "outer" loop. 
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End, Next Event, Next Event Except 

A group of executable statements beginning with 
one of the statements 

CONTINGENT EVENT n((c 1 ,c 2 ,...,c J ),d) 

PERMANENT EVENT n( (c^Cg, . . .,c J,d) 

PERMANENT EVENT n 

and ending with the statement 

END 

is known in MILITRAN as an "event. M Depending upon the 
initial statement, the event is either a "contingent event" 
or a "permanent event." 

Events are processed in a sequence determined by 
the structure of the MILITRAN source program. The "natural" 
or unmodified sequence is : 

1. The first permanent event in the 
program. 

2. Subsequent permanent events in 
the order of their appearance in 
the program. 

3» The last permanent event in the 
program. 

4. The "next contingent event". 
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This sequence Is repeated until terminated by either failure 
to select a "next contingent event" or transfer of control 
to a portion of the program not in any event. 

It is not required that a program have any minimum 
number of peirmanent or contingent events. In the discussion 
which followu, we will assume that irrelevant items in the 
natural sequence are ignored. 

Selection of the "next contingent event" is depend- 
ent upon the current value of TIME. Of all entries in all 
contingent event lists, one is selected whose first component 
exceeds TIME by the smallest positive value. The first compo- 
nent is assuned to be of real mode; duplicate minima within 
one event cause the entry of least index to be chosen; dupli- 
cate minima 'In more than one list cause an entry to be chosen 
from the event which appears earliest in the natural sequence. 

Execution of the statement 

NEXT EVENT 

causes control to be transferred to the next event in the 

natural sequence. If the* NEXT EVENT statement is not itself 

contained in an event, control is passed to the first permanent 
event . 
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The statements 

NEXT EVENT (n^xig, . # .,1^) 

NEXT EVENT EXCEPT (n^iig, # ..,1^) 

behave exactly as does the NEXT EVENT statement, but modify 
the natural sequence. NEXT EVENT EXCEPT will assume that 
events n^n,,,...,!^ do not exist. NEXT EVENT (n^,n^ 9 . . •> n m ) 

will assume that only the events named in parentheses exist 
and that they occur in the order listed. 

When control is transferred to a contingent event 
by means of an event sequencing statement, the values of 
TIME, ATTACKER, TARGET, and INDEX are automatically set. 
Assuming that control has been transferred to CONTINGENT 
EVENT n (above) because its i — entry contains the minimum 
first component, then: 

TIME - c^i) 
ATTACKER - c 2 (i) 
TARGET - c 3 (i) 
INDEX - i 

Transfer of values above is made without respect to modes, 
e.g. , ATTACKER is not valid unless c g is of program object 

mode. 
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End Contingent Events M End File Return, End Reoord Return 

Certain conditions occurring during the running 
of a program are detected as errors by the program. Three 
of these conditions are: 

1. In attempting to choose a "next 
contingent event," the program 
finds no entries whose values 
equal or exceed the current value 
of TIME. 

2 m In reading from magnetic tape, the 
program encounters an end -of -file 
mark on the tape before the input/ 
output list Is satisfied. 

3# In executing a BINARY READ, the end 
of a logical block is encountered 
before the Input/output list is 
satisfied. (See under BINARY READ ) 

In all of the above cases, control is normally 
wrested from the program and execution is terminated. How- 
ever, execution of the statements 

END CONTINGENT EVENTS (S) 
END PILE RETURN (S) 
END REC(2teD RETURN (S) 
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causes the program to be modified in such a way as to 
return control to the statement labelled s if and when 
the appropriate error condition occurs. 
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COMPILER 

Statements whose function is providing informa- 
tion to the processor are summarized in this section. 
These essentially ma chine -dependent statements are: 

END COMPILATION 
SUSPEND PAP LISTING 

End Compilation 

The statement 

END COMPILATION 

signals the end of a MILITRAN source program. The statement 
may not contain comments and may not occupy more than one 
card # 

Columns 73-75 of the END COMPILATION card will be 
preserved and used to identify the translated program. 

Suspend FAP Listing 

The statement 

SUSPEND FAP LISTING 

appearing anjwhere in a MILITRAN source program will cause 
listing of the translated program to be omitted by the 
processor. 
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APPENDIX 

Environment Iteclaratlons 

REAL n^(i^,ig, ...,1^), ...,n m (l^,I 2 ,. . ,,1 .) 

INTEGER n 1 (i 1 ,i 2 ,...,i k ),...,n m (i 1 ,I 2 ,...,I J ) 

LOGICAL n 1 (i 1 ,ig > ...,i 1c ),...,n m (l 1 ,i 2 ,. ..,!.) 

OBJECT n 1 (l 1 ),n 2 (i 2 ),...,n m (l m ) 

PROGRAM OBJECT n^i^ig, . ..,l k ), . . .^(i-^ig, ...,1 .) 

CLASS (c) CONTAINS a ± ,a 2 , . . ,,a 

NORMAL MODE m^a^a^ . . .,aj c ),ra 2 (b 1 ,b 2> . . .,t> r ) 

VECTOR n ((a ± ,a 2 , . . .,a 1 ),d 1 ,d 2 , . . .,d ± ) 
COMMON n. l ,n g ,.. # ,n i 

Arithmetic 

A - B 

Logical 

A - B 

Control Statements 
GO TO s 
PAUSE J 
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STOP 

IF (b) » t ,s f 

UNLESS (b) 8 f ,8 t 

DO (s) UNTIL b, n » e^eg 

DO (s) FOR a.IN.b 
CONTINUE 

List Processing Statements 

LIST n((c 1 ,c 2 ,...,c jL ),d) 

LENGTH (n) 

RESET LINGTH (n) to p 

PLACE (e lt e 2 ,...,e ± ) IN n 

REMOVE ENTRY n(k) 

PLACE ENTRY m(j) IN n 

REPLACE ENTRY n(k) BY (e^eg, . . .,e ± ) 

REPLACE ENTRY n(k) BY ENTRY ra(j) 

REMOVE (b^bg, ...,b ± ) PROM n 

REPLACE (b^bg, ...,b 1 ) BY (e^eg, .. ,,e ± ) IN n 

REPLACE (b 1 ,b 2 ,...,b 1 ) BY ENTRY m(j) IN n 

MINIMUM INDEX (nft^bg, . . .,X> ± ),a ) 

RANDOM INDEX (nft^bg, . ..,b ± ),B) 

QST 

LST 
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Event Statements 

PERMANENT EVENT n( (a 1 ,a 2 , . ,.,a 1 ),d) 

C0NTINCH5NT EVENT n((a 1 ,a 2 , ...^a^d) 

NEXT EVI5NT 

NEXT EVENT (n^zig, ...,n ± ) 

NEXT EVENT EXCEPT (n^ng, . . .,n x ) 

END 

END CONTINGENT EVENTS (s ) 

Procedure Statements 
PROCEDURE n 
PROCEDURE n(a 1 ,a 2 »...,a n ) 

EXECUTE n 

EXECUTE n (a-^a^ . . .,a n ) 

RETURN 
RETURN a 

Input-Output Statements 

FORMAT (Format Specification) 

READ (t,s) List 

WRITE (t,s) List 

READWRITE (t-^s^t^Bg) List 

BINARY READ (t) List 
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BINARY WRITE (t) List 
END PILE RETURN (s) 
END RECORD RETURN (s ) 
BACKSPACE (t) 
BACKSPACE PILE (t) 
END PILE (t) 
REWIND (t) 
UNLOAD (t) 
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Standard Functions 

ABS(v) 
ATAN(v 1 ,v 2 ) 

C0S (v ) 

EPSIL^N(v) 

EXP(v) 

INTEGER (v ) 

L0G (v ) 

MAXCv^Vg,...,^) 

MIU(v lf v 2 ,...,,Vj) 

M^D( V:L ,v 2 ) 

RANDOM 

REAL(v) 

SION(v) 

SIN(v) 

SQRT(v) 

TAN(v) 
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INDEX 



"A" Fields In FORMAT 48 
ABS 26, 4, (>7 
addition (+) 7, 22 
.AND. 8, 22 
arrays 5, 14 

as procedure arguments 20 

In C0MM0M statements 19 

In expressions 24 

subscripts of 29 
asterisk (*) 7 

as multiplication symbol 22 

In list processing conditions 33-3 1 * 
ATAN 26, 4, 67 
ATTACKER 4 

automatic updating 59 

In C0MM0N statements 20 

BACKSPACE 41, 10, 40, 66 

BACKSPACE FILE 4l, 10, 40, 66 

BINARY READ 43, 10, 40, 65 

BINARY WRITE 43, 10, 40, 66 

blanks 3, 6 

BY 9, 37-38, 64 

BY ENTRY 9, 37-38, 64 

card punch 40 

card reader 4^0 

CARDS 40, 4 

characters, alphabetic 3, 4, 9 

characters, alphameric 3, 4, 6, 46, 48 

characters, numeric 3* 6 
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characters, set of 3 

characters, special 3, 7, 6, 46, 48 

CLASS 13, 10, 12, 63 

classes 5 

as class members 13 

as dimensions 14, 19 

as D0f-loop parameters 55 

as procedure arguments 21 

defining statement 13 

in C0hMJ2ftl statements 19, 20 

in expressions 23, 25 

in substitution statements 31 

comma (,) 7 

C0MM0N 18-20, 10, 12, 63 

comparators 7, 22, 23 

constants 6, 3, 24 

CONTAINS 9, 13, 63 

CONTINGENT EVENT 17, 57, 10, 12, 65 

contingent events 5 

as procedure arguments 21 
automatic processing of 57-59 
defining statements 17, 57 
in C0m0 statements 19, 20 
in expressions 24 
in substitution statements 31 
subscripts of 29 

CONTINUE 56, 10, 51, 64 

C0S 26, 4, 67 

dimensions 14 

in C0m0 statements 18, 19 
of arrays 14 
of lists 16 
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of objects 12 

of vector components 16 

of vectors 16 

related i;o subscripts 29-30 
division (/) 7, 22 
D0 55-56, 10, 51, 64 

.E. 7, 22 

implied In list processing conditions 34 
"E" fields in F0RMAT 49 
EACH 13, 4 
ellipsis (...) 7 
END 17, 57, 10, 51, 65 
END COMPILATION 62, 4, 10 

END CONTINGENT EVENTS 60-61, 10, 51, 65 * 
END FILE 41, 10, 40, 66 
END FILE RETURN 60-6l, 10, 51,. 66 
END REC0RD RETURN 60-61, 10, 51, 66 
EPSIL0N 26, 4, 67 
.EQV. 8, 22 

EXECUTE 53-54, 10, 51, 65 
.EXOR. 8, 22 
EXP 26, 4, 67 
exponentiation (.P.) 7, 22 
expressions 22-25 

as dimensions 12, 14 

as D^-loop parameters 55 

as logical unit designators 40 

as subscripts 29-30 

in input/output lists 42 

in RETURN statements 54 

in substitution statements 9, 31-32 
external procedures 5, 24, 31, (see also "procedures") 
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"P" fields In F0RMAT 49 

FALSE 4, 6 

F0R 9, 42, 55, 64 

F0RMAT 45-50, 44, 4, 10, 40, 65 

FR0M 9, 36, 65 

functions 25-28 (see also "procedures") 

for locating list entries 39 

in expressions 24 

standard in MILITRAN 26-28 

use of RETURN statement 54 

.G. 7, 22 

.GE. 7, 22 

G0 T0 51, 10, 63 

restriction in D0-loops 56 
GST 34-35, 4, 64 

"H" fields in F0RMAT 46 

"I" fields in F0RMAT 48 
IF 51-52, 10, 64 

restriction in D0-loops 56 
implied D0f-loops in input/output lists 42 
IN 9, 35, 36, 38, 64 
.IN. 7, 22, 23 

implied in list processing conditions 34 
INDEX 4 

as abbreviation for MINIMUM INDEX 39 

automatic updating 59 

in C0MM0N statements 20 
input/output lists 42-46, 50 
INTEGER 14, 27, 4, 10, 12, l6, 67 
.IS. 7, 22, 23 

implied in list processing conditions 34 
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"J" fields in F0&MAT 49 

.L. 7, 25? 

"L" fields in F0&MAT 48 

.LE. 7. 22 

LENGTH 3'«? -33, 4, 35, 36, 38, 64 

line printer 40 

LIST 16, 10, 12, 64 

list entries 32 

as basils for NEXT EVENT selection 58-59 

conditions specifying 33 

functions for locating 39 
list processing 32-39, 64 
lists 5 

as procedure arguments 20 

associated with events 17, 58-59 

defining statements 16, 17 

in C0^"M0N statements 19 

in expressions 24 

in substitution statements 31 

processing of 32-39 

subscripts of 29 
L0Q 27, 4, 67 
LOGICAL 14, 10, 12, 16, 63 
logical block 43, 60-61 
logical unit designations 40, 43, 44 
LST 34-35, 4, 64 

main program 2 

MAX 27. 4, 67 

MIN 27, 4, 67 

MINIMUM INDEX 39, 4, 64 

minus (-) 7, 23 

mnemonic delimiters 9* 3 
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M0t> 4, 67 
modes 4-5 

declaration of 14-16 
multiplication (*) 7, 22 
names 3—'+ 
.NE. 7, 22 
NEXT EVENT 57-59, 4, 10, 51, 65 

in C^ftlM^N statements 20 

restriction in D0-loops 56 
NEXT EVENT EXCEPT 57-59, 10, 51, 65 
NORMAL M0DE 15, 11, 12, l6 
.N0T. 8, 23 

"0" fields in F0RMAT 48 
OBJECT 12, 11, 63 
objects 5 

as class members 13 

as dimensions 14, 19 

as D0f-Loop parameters 6l 

as procedure arguments 21 

defining statement 12 

in CgfMMgfN statements 19, 20 

in expressions 23 

in substitution statements 31 
open procedures 5, 24, 31 (see also "procedures") 
operators 3, 7-8, 22-23 
.0R. 8, 22 

.P. 7, 22 

parentheses () 7, 23-24, 45 

PAUSE 53, 11, 51, 63 

period (.) 7, 6 

PERMANENT E7ENT 17, 11, 12, 57, 65 
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permanent events 5 

as procedure arguments 21 
automatic processing of 57-59 
defining statements 17* 57 
in C0>IM0N statements 19, 20 
in expressions 24 
in substitution statements 31 
subscripts of 29 

PLACE 35, 11, 31, 64 

PLACE ENTRY 36, 11, 31, 64 

plus (+) 7, 23, 51 

PRINTER 4, 40 

PROCEDURE 20, 11, 12, 53, 65 

procedures 2, 5 

arguments of 20-21, 24, 25, 53 

as functions 25 

C0MM0N statements in 18 

control statements 53-54 

defining statements 20-21, 53-54 

implicit declaration of 25 

in expressions 24 

in substitution statements 31 

program 2 

PROGRAM SUBJECT 14, 11, 12, 16, 63 

punctuation 3, 7, 22-25 

RANDOM 27, 4, 67 
RANDOM INDEX 39, 4, 64 
READ 44, 11, 40, 45-46, 65 
READWRITE 45, 11, 40, 45-46, 65 
REAL 14, 28, 4, 11, 12, 16, 67 
REM0VE 36, 11, 31, 64 
REM0VE ENTSY 36, 11, 31, 64 
REPLACE 33, 11, 31, 64 
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REPLACE ENTRY 37, 11, 31, 64 
RESET LENGTH 38, 11, 31, 64 
RETURN 53-54, 11, 51, 65 
REWIND 4".., 11, 40, 66 
SIGN 28, 4, 67 
SIN 28, 4, 67 
single variables 5 

as procedure arguments 20 

in C^IMgfN statements 19 

in expressions 24 
source program 2 
source address 50, 47-49 
SORT 28, 4, 67 
statement labels 5 

as procedure arguments 21 

defined by CONTINUE statements 56 

defining range of D#-loops 55 

in ENE CONTINGENT EVENTS statements 60-61 

in END FILE RETURN statements 60-61 

in END REC0kD RETURN statements 60-61 

in G0 T0 statements 51 

in IF statements 51-52 

in substitution statements 31 

in UNLESS statements 51-52 

required for F0RMAT statements 45 
statement type identifiers 9-11, 3 
ST0? 53, 11, 51, 64 
subscripts 29-30 

substitution statement 31-32, 7, 9, 63 
subtraction (-) 7, 22 
SUSPEND FAP LISTING 62, 11 
symbolic dimensions 5 

as procedure arguments 21 

in C0MM0N statements 18, 20 
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in expressions 24 

of arrays, vectors, lists, etc # 14 

of objects 12 

TAN 28, 4, 67 

tape units 40-41, 43 

TARGET 4 

automatic updating 59 

in C0MM0N statements 20 
target address 52, 47-49 
TIME 4 

as basis for NEXT EVENT selection 58 

automatic updating 59 

in C0MM0to statements 20 
T0 9, 38, 64 
TRUE 4, 6 

implied in list processing conditions 33-3^ 

UNLESS 51-52, 11, 64 

restriction in D0-loops 56 
UNL0AD 41, 11, 42 
UNTIL 9, ^2, 55, 64 

VECT0 ( R 16, 11, 12, 63 
vector components 5 

defining statements 16 

in expressions 24 

subscripts of 29 
vectors 5 

as procedure arguments 20 

defining statement 16 

in C0MM0to statements 19 
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In expressions 24 
in substitution statements 31 
subscripts of 29 
voids in input/output lists 42, 46, 51 

WRITE 44, 11, 40, 45-47, 65 

"X" fields In FORMAT 46 
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